home *** CD-ROM | disk | FTP | other *** search
/ Atari Forever 4 / Atari Forever 4.zip / Atari Forever 4.iso / SERIE_SP / SP_015 / FACE_VAL / LISTINGS / LISTING2.TXT < prev    next >
Text File  |  1998-03-14  |  418b  |  19 lines
  1. SELECT tree&
  2. CASE menu&
  3.   SELECT object&
  4.   CASE menuabou&
  5.     ' "Über mich..." wurde angeklickt
  6.     ' => Infodialog anzeigen
  7.     LET prginfo_dialog&=@win_open_dialog(1,prginfo&,-1)
  8.   CASE menuquit&
  9.     exit_program!=TRUE
  10.   ENDSELECT
  11. CASE prginfo&
  12.   SELECT object&
  13.   CASE infook&
  14.     ' Der OK-Button wurde angeklickt
  15.     ' => Infodialog schließen
  16.     @win_close(prginfo_dialog&)
  17.   ENDSELECT
  18. ENDSELECT
  19.